home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / src / editors / AME / Rexx / compile.ame < prev    next >
Encoding:
Text File  |  1994-02-01  |  752 b   |  19 lines
  1. /* $VER: Compile 37.2 (23.11.93 ) : Compile with DMAKE */
  2.  
  3. options results
  4.  
  5. savemodified
  6. setprefs 'project qwe'
  7. address command dmake
  8. if rc = 0 then do; 
  9.     eprint "[Compile done]"; 
  10.     onlywindow; 
  11.     bindkey "mouseclick Mouse"
  12. end;
  13. else do
  14.     /* check if mouse is bound yet */
  15.     describekey Mouse
  16.     parse var result a b c d e f .
  17.     if (f = "mouseclick") then bindkey "stringrx Mouse" '"options results;dottomouse;getbuffername;if (RC = 0 ) then do;parse var RESULT name .;if name = ''huntbuf'' then do; getline;if(RC = 0) then do;line = RESULT;parse var line a b c d lineno file .;if(d = ''Line'') then do;prevwindow;visit file;gotoidline lineno;end;end;end;else mouseclick;end"'
  18.     rx "dcc:rexx/nexterror.ame"    /* goto first window */
  19. end;